Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/ruthie/game2.frm

Text File | 1995-05-08 | 11KB | 370 lines

VERSION 2.00
Begin Form Game2
   Caption         =   "RuthieWare"
   ClientHeight    =   9060
   ClientLeft      =   1095
   ClientTop       =   1770
   ClientWidth     =   10170
   Height          =   9750
   Icon            =   GAME2.FRX:0000
   Left            =   1035
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MinButton       =   0   'False
   ScaleHeight     =   9060
   ScaleWidth      =   10170
   Top             =   1140
   Width           =   10290
   Begin Timer Timer2
      Left            =   4440
      Top             =   8040
   End
   Begin PictureBox Storage
      BorderStyle     =   0  'None
      Height          =   615
      Index           =   3
      Left            =   2400
      Picture         =   GAME2.FRX:0302
      ScaleHeight     =   615
      ScaleWidth      =   615
      TabIndex        =   7
      Top             =   7680
      Visible         =   0   'False
      Width           =   615
   End
   Begin PictureBox Storage
      BorderStyle     =   0  'None
      Height          =   495
      Index           =   2
      Left            =   1680
      Picture         =   GAME2.FRX:106A
      ScaleHeight     =   495
      ScaleWidth      =   495
      TabIndex        =   6
      Top             =   7680
      Visible         =   0   'False
      Width           =   495
   End
   Begin PictureBox Storage
      BorderStyle     =   0  'None
      Height          =   495
      Index           =   1
      Left            =   960
      Picture         =   GAME2.FRX:148E
      ScaleHeight     =   495
      ScaleWidth      =   495
      TabIndex        =   5
      Top             =   7680
      Visible         =   0   'False
      Width           =   495
   End
   Begin PictureBox Storage
      BorderStyle     =   0  'None
      Height          =   495
      Index           =   0
      Left            =   120
      Picture         =   GAME2.FRX:2D5E
      ScaleHeight     =   495
      ScaleWidth      =   495
      TabIndex        =   4
      Top             =   7680
      Visible         =   0   'False
      Width           =   495
   End
   Begin PictureBox Actions
      BorderStyle     =   0  'None
      Height          =   855
      Left            =   5160
      ScaleHeight     =   855
      ScaleWidth      =   1695
      TabIndex        =   9
      Top             =   7560
      Width           =   1695
      Begin PictureBox GoToGame3
         BorderStyle     =   0  'None
         Height          =   495
         Left            =   1200
         Picture         =   GAME2.FRX:404E
         ScaleHeight     =   495
         ScaleWidth      =   495
         TabIndex        =   12
         Top             =   0
         Width           =   495
      End
      Begin PictureBox Quit
         BorderStyle     =   0  'None
         Height          =   495
         Left            =   600
         Picture         =   GAME2.FRX:4350
         ScaleHeight     =   495
         ScaleWidth      =   495
         TabIndex        =   11
         Top             =   0
         Width           =   495
      End
      Begin PictureBox GoToGame1
         BorderStyle     =   0  'None
         Height          =   495
         Left            =   0
         Picture         =   GAME2.FRX:4652
         ScaleHeight     =   495
         ScaleWidth      =   495
         TabIndex        =   10
         Top             =   0
         Width           =   495
      End
   End
   Begin Timer Timer1
      Left            =   4440
      Top             =   7560
   End
   Begin PictureBox Yippee
      BorderStyle     =   0  'None
      Height          =   615
      Left            =   3120
      Picture         =   GAME2.FRX:4954
      ScaleHeight     =   615
      ScaleWidth      =   1215
      TabIndex        =   13
      Top             =   7440
      Visible         =   0   'False
      Width           =   1215
   End
   Begin PictureBox Picture2
      Height          =   7215
      Left            =   6480
      ScaleHeight     =   7185
      ScaleWidth      =   465
      TabIndex        =   2
      Top             =   120
      Width           =   495
      Begin PictureBox Picture3
         BackColor       =   &H00C00000&
         Height          =   960
         Left            =   0
         ScaleHeight     =   930
         ScaleWidth      =   465
         TabIndex        =   3
         Top             =   6240
         Width           =   495
      End
   End
   Begin PictureBox Background
      BorderStyle     =   0  'None
      Height          =   7215
      Left            =   120
      ScaleHeight     =   7215
      ScaleWidth      =   6135
      TabIndex        =   0
      Top             =   120
      Width           =   6135
      Begin PictureBox FrownFace
         BorderStyle     =   0  'None
         Height          =   2775
         Left            =   1680
         Picture         =   GAME2.FRX:A99A
         ScaleHeight     =   2775
         ScaleWidth      =   2895
         TabIndex        =   8
         Top             =   1920
         Visible         =   0   'False
         Width           =   2895
      End
      Begin PictureBox Picture1
         BorderStyle     =   0  'None
         Height          =   1095
         Left            =   120
         Picture         =   GAME2.FRX:BBE8
         ScaleHeight     =   1095
         ScaleWidth      =   1215
         TabIndex        =   1
         Top             =   120
         Width           =   1215
      End
   End
   Begin Menu File
      Caption         =   "&File"
      Begin Menu FileAbout
         Caption         =   "&About Ruthie"
      End
      Begin Menu FileExit
         Caption         =   "E&xit"
      End
   End
   Begin Menu Game
      Caption         =   "&Game"
      Begin Menu GameGame1
         Caption         =   "Game &1"
      End
      Begin Menu GameGame2
         Caption         =   "Game &2"
         Checked         =   -1  'True
      End
      Begin Menu GameGame3
         Caption         =   "Game &3"
      End
   End
   Begin Menu Instructions
      Caption         =   "&Instructions"
      Begin Menu InstructionsGame2
         Caption         =   "Playing Game &2"
      End
   End
End
Dim Counter As Integer


Sub Background_Click ()
    FrownFace.Top = (Background.Height - FrownFace.Height) / 2
    FrownFace.Left = (Background.Width - FrownFace.Width) / 2
    FrownFace.Visible = True  'Turns FrownFace on
    Timer1.Interval = HOWLONG  'Sets clock for 3 seconds
End Sub

Sub FileAbout_Click ()
    Open2.Show MODAL
End Sub

Sub FileExit_Click ()
    End
End Sub

Sub Form_Load ()
    Width = Screen.Width * .5
    Height = Screen.Height * .75
    Left = (Screen.Width - Width) / 2
    Top = (Screen.Height - Height) * .4
    Initialize
    Picture1.Picture = Storage(0).Picture
End Sub

Sub Form_Resize ()
    Scale                                   ' Reset scale to twips
    If Game2.Height > 100 Then Initialize   ' If the Height is smaller, than it's been
                                            ' minimized. We don't want to initialize if
                                            ' that's the case.
End Sub

Sub GameGame1_Click ()
    Game2.Hide
    Ruthie.Show
End Sub

Sub GameGame2_Click ()
    MsgBox "So, okay, we'll ask. If you are already playing Game 2, why are you clicking on this menu instruction?", 0, HEADER
End Sub

Sub GameGame3_Click ()
    Game2.Hide
    Game3.Show
End Sub

Sub GoToGame1_Click ()
    Game2.Hide
    Ruthie.Show
End Sub

Sub GoToGame3_Click ()
    Game2.Hide
    Game3.Show
End Sub

Sub Initialize ()
    Game2.Scale (0, 0)-(75, 50)                 ' Define the scale for the form

    Background.Width = 60                       ' Place Background
    Background.Height = 40
    Background.Left = 3
    Background.Top = 3
    Background.Scale (0, 0)-(50, 65)